ASP高手帮解决下问题`谢谢（追加30分）

这段代码中“分类文章数目”是10条，我想修改成30条，请高手帮忙`谢谢
Sub CreatClass(ClassID)
Dim ClassRS,NewsRs,Sql,TempletRs,NewsContent,PageContent,i,j,AllPage,AllPage1,Sql1,Sql2
'获得节点所属分类的分类模板和其下边新闻的新闻模板
Sql1 = "Select News_Template.Content AS News_Template,ClassList.* from Classlist,News_Template Where News_Template.Id=Classlist.ClassTemplate And Classlist.id="&ClassID
Set ClassRS=Server.CreateObject("ADODB.RecordSet")
ClassRs.open Sql1,Conn,1,1
If classRs.eof or classrs.bof then
response.write Classid&"模版错误"
exit sub
end if
'获得节点ClassId中新闻的模板
Sql2 = "Select * from News_Template Where Id="&ClassRS("Template")
Set TempletRs=Server.CreateObject("ADODB.RecordSet")
TempletRs.open Sql2,Conn,1,1
Set NewsRs=Server.CreateObject("ADODB.RECORDSET")
'获得分类ClassId下边的新闻/不是最底级的节点，可能没有文章
sql="Select * from News Where Class="&

ASP高手帮解决下问题`谢谢（追加30分） 高手帮我解决下.asp影院影片对齐问题 ASP问题,请高手进帮解决! ASP高手帮忙解决下问题~~~~~~~ 局域网问题 高手帮解决下 高分~~谢谢 跑跑卡丁车的问题 高手帮解决下 谢谢! 高手帮我解决下路由器的问题。。。谢谢了 asp表单互动问题,高手帮下 ASP高手帮下! 跪求高手帮我解决下asp搜索功能